10 '*** OISAC 2 *** CALC$ ***
20 PRINT"CALC$ = ";CALC$
30 INPUT"CALC$ : ",I$
40 CALC$=A$
50 PRINT"CALC$ = ";CALC$